home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / MWCC03 / MESSAGE.ZIP / MSGTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-08-18  |  2KB  |  55 lines
  1. {**********************************************************************}
  2. {*                                                                    *}
  3. {*          Microworks Sample Application                                        *}
  4. {*                                                                    *}
  5. {*         for Borland Pascal v7.0 and Turbo Pascal for Windows v1.5           *}
  6. {*                                                                    *}
  7. {*     Copyright 1992-93 Jeff Franks (Microworks) Sydney, Australia.  *}
  8. {*                                                                    *}
  9. {*         You are free to use, modify, reproduce and distribute the      *}
  10. {*         Sample Files (and/or any modified version) in any way you      *}
  11. {*         find useful.                                                                *}
  12. {*                                                                    *}
  13. {**********************************************************************}
  14.  
  15. {*** Introduction
  16.  
  17.     Application    := Msgtest
  18.  
  19.     Files          := Msgtest.pas and Msgunit.pas
  20.  
  21.     Units Required := MWCC.dll
  22.  
  23.     Tabs           := 2
  24.  
  25.     Screen         := 800 * 600
  26.  
  27.     Date           := August, 1993.
  28.  
  29.     Msgtest is a sample program that uses the stand alone message box unit 'MsgUnit'.
  30.  
  31. ***}
  32.  
  33. program MsgTest;
  34.  
  35. uses WinTypes, WinProcs, MsgUnit;
  36.  
  37. var
  38.     Reply : Integer;
  39.  
  40. begin
  41.     Reply := MWCCMsgBox(0, 'This is a test piece of text. It contains letters ' +
  42.                                                     'and words. Some words are longer than others but all ' +
  43.                                                     'are equally meaningless. Their only purpose is to fill ' +
  44.                                                     'up 255 characters because that''s the maximum number ' +
  45.                                                     'characters allowed in these message boxes....',
  46.                                                     'Sample Message Box', mb_AbortRetryIgnore or
  47.                                                      mb_IconAsterisk, 'BWCC');
  48.  
  49.     if Reply = id_Abort then
  50.         Messagebox(0, 'You selected Abort', 'Reply', mb_ok);
  51.     if Reply = id_Retry then
  52.         Messagebox(0, 'You selected Retry', 'Reply', mb_ok);
  53.     if Reply = id_Ignore then
  54.         Messagebox(0, 'You selected Ignore', 'Reply', mb_ok);
  55. end.